home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ussbc23.zip / DEMOS / QR20FRM2.DFM / QR20FRM2.txt
Text File  |  1997-02-17  |  9KB  |  346 lines
  1. object frmQRReport: TfrmQRReport
  2.   Left = 3
  3.   Top = 112
  4.   Width = 914
  5.   Height = 628
  6.   Caption = 'frmQRReport'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Scaled = False
  12.   PixelsPerInch = 96
  13.   TextHeight = 13
  14.   object SSBarcode1: TSSBarcode
  15.     Left = 816
  16.     Top = 136
  17.     Width = 257
  18.     Height = 13
  19.     BarCodeType = bcPostnet
  20.     BarColor = clBlack
  21.     BarWidth = 0.019999999552965160
  22.     Data = '94766-1234'
  23.     DataField = 'Zip'
  24.     DataSource = dsCustomers
  25.     PrintHumanReadable = False
  26.     WideBarRatio = 3.000000000000000000
  27.     Color = clWhite
  28.     Font.Color = clWindowText
  29.     Font.Height = -8
  30.     Font.Name = 'Courier New'
  31.     Font.Style = []
  32.   end
  33.   object QuickRep1: TQuickRep
  34.     Left = 0
  35.     Top = -8
  36.     Width = 816
  37.     Height = 1056
  38.     Frame.Color = clBlack
  39.     Frame.DrawTop = False
  40.     Frame.DrawBottom = False
  41.     Frame.DrawLeft = False
  42.     Frame.DrawRight = False
  43.     DataSet = tbCustomers
  44.     Font.Color = clWindowText
  45.     Font.Height = -13
  46.     Font.Name = 'Arial'
  47.     Font.Style = []
  48.     Options = [FirstPageHeader, LastPageFooter]
  49.     Page.Columns = 2
  50.     Page.Orientation = poPortrait
  51.     Page.PaperSize = Letter
  52.     Page.Values = (
  53.       100.000000000000000000
  54.       2794.000000000000000000
  55.       100.000000000000000000
  56.       2159.000000000000000000
  57.       100.000000000000000000
  58.       100.000000000000000000
  59.       0.000000000000000000)
  60.     PrintIfEmpty = False
  61.     PrinterSettings.Copies = 1
  62.     PrinterSettings.Duplex = False
  63.     PrinterSettings.OutputBin = First
  64.     SnapToGrid = True
  65.     Units = Inches
  66.     Zoom = 100
  67.     object DetailBand1: TQRBand
  68.       Left = 38
  69.       Top = 78
  70.       Width = 370
  71.       Height = 107
  72.       Frame.Color = clBlack
  73.       Frame.DrawTop = False
  74.       Frame.DrawBottom = False
  75.       Frame.DrawLeft = False
  76.       Frame.DrawRight = False
  77.       AlignToBottom = False
  78.       Color = clWhite
  79.       ForceNewColumn = False
  80.       ForceNewPage = False
  81.       Size.Values = (
  82.         283.104166666666700000
  83.         978.958333333333300000)
  84.       BandType = rbDetail
  85.       object QRDBText1: TQRDBText
  86.         Left = 8
  87.         Top = 40
  88.         Width = 56
  89.         Height = 17
  90.         Frame.Color = clBlack
  91.         Frame.DrawTop = False
  92.         Frame.DrawBottom = False
  93.         Frame.DrawLeft = False
  94.         Frame.DrawRight = False
  95.         Size.Values = (
  96.           44.979166666666670000
  97.           21.166666666666670000
  98.           105.833333333333300000
  99.           148.166666666666700000)
  100.         Alignment = taLeftJustify
  101.         AlignToBand = False
  102.         AutoSize = True
  103.         AutoStretch = False
  104.         Color = clWhite
  105.         DataSet = tbCustomers
  106.         DataField = 'Company'
  107.         Transparent = False
  108.         WordWrap = True
  109.         FontSize = 10
  110.       end
  111.       object QRDBText2: TQRDBText
  112.         Left = 8
  113.         Top = 56
  114.         Width = 35
  115.         Height = 17
  116.         Frame.Color = clBlack
  117.         Frame.DrawTop = False
  118.         Frame.DrawBottom = False
  119.         Frame.DrawLeft = False
  120.         Frame.DrawRight = False
  121.         Size.Values = (
  122.           44.979166666666670000
  123.           21.166666666666670000
  124.           148.166666666666700000
  125.           92.604166666666670000)
  126.         Alignment = taLeftJustify
  127.         AlignToBand = False
  128.         AutoSize = True
  129.         AutoStretch = False
  130.         Color = clWhite
  131.         DataSet = tbCustomers
  132.         DataField = 'Addr1'
  133.         Transparent = False
  134.         WordWrap = True
  135.         FontSize = 10
  136.       end
  137.       object QRDBText3: TQRDBText
  138.         Left = 8
  139.         Top = 72
  140.         Width = 35
  141.         Height = 17
  142.         Frame.Color = clBlack
  143.         Frame.DrawTop = False
  144.         Frame.DrawBottom = False
  145.         Frame.DrawLeft = False
  146.         Frame.DrawRight = False
  147.         Size.Values = (
  148.           44.979166666666670000
  149.           21.166666666666670000
  150.           190.500000000000000000
  151.           92.604166666666670000)
  152.         Alignment = taLeftJustify
  153.         AlignToBand = False
  154.         AutoSize = True
  155.         AutoStretch = False
  156.         Color = clWhite
  157.         DataSet = tbCustomers
  158.         DataField = 'Addr2'
  159.         Transparent = False
  160.         WordWrap = True
  161.         FontSize = 10
  162.       end
  163.       object QRDBText4: TQRDBText
  164.         Left = 8
  165.         Top = 88
  166.         Width = 161
  167.         Height = 17
  168.         Frame.Color = clBlack
  169.         Frame.DrawTop = False
  170.         Frame.DrawBottom = False
  171.         Frame.DrawLeft = False
  172.         Frame.DrawRight = False
  173.         Size.Values = (
  174.           44.979166666666670000
  175.           21.166666666666670000
  176.           232.833333333333300000
  177.           425.979166666666700000)
  178.         Alignment = taLeftJustify
  179.         AlignToBand = False
  180.         AutoSize = False
  181.         AutoStretch = False
  182.         Color = clWhite
  183.         DataSet = tbCustomers
  184.         DataField = 'City'
  185.         Transparent = False
  186.         WordWrap = True
  187.         FontSize = 10
  188.       end
  189.       object QRDBText5: TQRDBText
  190.         Left = 176
  191.         Top = 88
  192.         Width = 73
  193.         Height = 17
  194.         Frame.Color = clBlack
  195.         Frame.DrawTop = False
  196.         Frame.DrawBottom = False
  197.         Frame.DrawLeft = False
  198.         Frame.DrawRight = False
  199.         Size.Values = (
  200.           44.979166666666670000
  201.           465.666666666666700000
  202.           232.833333333333300000
  203.           193.145833333333300000)
  204.         Alignment = taLeftJustify
  205.         AlignToBand = False
  206.         AutoSize = False
  207.         AutoStretch = False
  208.         Color = clWhite
  209.         DataSet = tbCustomers
  210.         DataField = 'State'
  211.         Transparent = False
  212.         WordWrap = True
  213.         FontSize = 10
  214.       end
  215.       object QRDBText6: TQRDBText
  216.         Left = 256
  217.         Top = 88
  218.         Width = 110
  219.         Height = 17
  220.         Frame.Color = clBlack
  221.         Frame.DrawTop = False
  222.         Frame.DrawBottom = False
  223.         Frame.DrawLeft = False
  224.         Frame.DrawRight = False
  225.         Size.Values = (
  226.           44.979166666666670000
  227.           677.333333333333300000
  228.           232.833333333333300000
  229.           291.041666666666700000)
  230.         Alignment = taLeftJustify
  231.         AlignToBand = False
  232.         AutoSize = False
  233.         AutoStretch = False
  234.         Color = clWhite
  235.         DataSet = tbCustomers
  236.         DataField = 'Zip'
  237.         Transparent = False
  238.         WordWrap = True
  239.         FontSize = 10
  240.       end
  241.       object QR20ssBarcode1: TQR20ssBarcode
  242.         Left = 8
  243.         Top = 16
  244.         Width = 257
  245.         Height = 13
  246.         Frame.Color = clBlack
  247.         Frame.DrawTop = False
  248.         Frame.DrawBottom = False
  249.         Frame.DrawLeft = False
  250.         Frame.DrawRight = False
  251.         Size.Values = (
  252.           34.395833333333330000
  253.           21.166666666666670000
  254.           42.333333333333330000
  255.           679.979166666666700000)
  256.         Barcode = SSBarcode1
  257.       end
  258.     end
  259.     object TitleBand1: TQRBand
  260.       Left = 38
  261.       Top = 38
  262.       Width = 740
  263.       Height = 40
  264.       Frame.Color = clBlack
  265.       Frame.DrawTop = False
  266.       Frame.DrawBottom = False
  267.       Frame.DrawLeft = False
  268.       Frame.DrawRight = False
  269.       AlignToBottom = False
  270.       Color = clWhite
  271.       ForceNewColumn = False
  272.       ForceNewPage = False
  273.       Size.Values = (
  274.         105.833333333333300000
  275.         1957.916666666667000000)
  276.       BandType = rbTitle
  277.       object QRLabel1: TQRLabel
  278.         Left = 136
  279.         Top = 8
  280.         Width = 520
  281.         Height = 25
  282.         Frame.Color = clBlack
  283.         Frame.DrawTop = False
  284.         Frame.DrawBottom = False
  285.         Frame.DrawLeft = False
  286.         Frame.DrawRight = False
  287.         Size.Values = (
  288.           66.145833333333330000
  289.           359.833333333333300000
  290.           21.166666666666670000
  291.           1375.833333333333000000)
  292.         Alignment = taLeftJustify
  293.         AlignToBand = False
  294.         AutoSize = True
  295.         AutoStretch = False
  296.         Caption = 'Test Report using ssBarcode and QuickReports 2.0'
  297.         Color = clWhite
  298.         Font.Color = clWindowText
  299.         Font.Height = -21
  300.         Font.Name = 'Arial'
  301.         Font.Style = [fsBold]
  302.         ParentFont = False
  303.         Transparent = False
  304.         WordWrap = True
  305.         FontSize = 16
  306.       end
  307.     end
  308.   end
  309.   object tbCustomers: TTable
  310.     Active = True
  311.     DatabaseName = 'DBDEMOS'
  312.     TableName = 'CUSTOMER.DB'
  313.     Left = 824
  314.     Top = 48
  315.     object tbCustomersCompany: TStringField
  316.       FieldName = 'Company'
  317.       Size = 30
  318.     end
  319.     object tbCustomersAddr1: TStringField
  320.       FieldName = 'Addr1'
  321.       Size = 30
  322.     end
  323.     object tbCustomersAddr2: TStringField
  324.       FieldName = 'Addr2'
  325.       Size = 30
  326.     end
  327.     object tbCustomersCity: TStringField
  328.       FieldName = 'City'
  329.       Size = 15
  330.     end
  331.     object tbCustomersState: TStringField
  332.       FieldName = 'State'
  333.     end
  334.     object tbCustomersZip: TStringField
  335.       FieldName = 'Zip'
  336.       OnGetText = tbCustomersZipGetText
  337.       Size = 10
  338.     end
  339.   end
  340.   object dsCustomers: TDataSource
  341.     DataSet = tbCustomers
  342.     Left = 824
  343.     Top = 80
  344.   end
  345. end
  346.